
R0=%0
R1=%1
R2=%2
R3=%3
R4=%4
R5=%5
SP=%6
PC=%7

TTY=1
KBD=0

.RESET=2
.RESTART=3
.READ=11
.WAIT=4
.WRITE=12

.=2000

START:	MOV	#2000,SP
	IOT
	.WORD	0
	.BYTE	.RESET,0

	IOT
	.WORD	START
	.BYTE	.RESTART,0

GO:	IOT
	.WORD	ENTMSG
	.BYTE	.WRITE,TTY

	IOT
	.WORD	INBF1
	.BYTE	.READ,KBD

	IOT
	.WORD	.-2
	.BYTE	.WAIT,KBD

	MOV	#A,R0
	MOV	#BUF1,R1
	JSR	PC,ATOI
	BVC	NOVA
	IOT
	.WORD	VBITA
	.BYTE	.WRITE,TTY

	BR	GO
NOVA:	MOV	#B,R0
	JSR	PC,ATOI
	BVC	NOVB
	IOT
	.WORD	VBITB
	.BYTE	.WRITE,TTY

	BR	GO
NOVB:	IOT
	.WORD	MSG1
	.BYTE	.WRITE,TTY

	JSR	PC,MOVE
	ADD	A,C
	ADC	C+2
	ADD	A+2,C+2
	JSR	PC,JTOA
	IOT
	.WORD	OUTBF1
	.BYTE	.WRITE,TTY

	IOT
	.WORD	MSG2
	.BYTE	.WRITE,TTY

	JSR	PC,MOVE
	SUB	A,C
	SBC	C+2
	SUB	A+2,C+2
	JSR	PC,JTOA
	IOT
	.WORD	OUTBF1
	.BYTE	.WRITE,TTY

	IOT
	.WORD	MSG3
	.BYTE	.WRITE,TTY

	JSR	PC,MOVE
	MOV	#A,R1
	MOV	#C,R0
	JSR	PC,MUL
	MOV	#C,R1
	MOV	#BUF2,R0
	JSR	PC,JTOA
	IOT
	.WORD	OUTBF1
	.BYTE	.WRITE,TTY

	IOT
	.WORD	MSG4
	.BYTE	.WRITE,TTY

	JSR	PC,MOVE
	MOV	#A,R1
	MOV	#C,R0
	JSR	PC,DIV
	BVC	NOVD
	IOT
	.WORD	VBITD
	.BYTE	.WRITE,TTY

NOVD:	MOV	#C,R1
	MOV	#BUF3,R0
	JSR	PC,ITOA
	IOT
	.WORD	OUTBF2
	.BYTE	.WRITE,TTY

	IOT
	.WORD	MSG5
	.BYTE	.WRITE,TTY

	MOV	#C+2,R1
	MOV	#BUF3,R0
	JSR	PC,ITOA
	IOT
	.WORD	OUTBF2
	.BYTE	.WRITE,TTY

	JMP	GO
MOVE:	MOV	B,C
	MOV	B+2,C+2
	MOV	#C,R1
	MOV	#BUF2,R0
	RTS	PC

MSG1:	.WORD	12,0,4
	.ASCII	/A+B=/
MSG2:	.WORD	12,0,4
	.ASCII	/A-B=/
MSG3:	.WORD	12,0,4
	.ASCII	/A*B=/
MSG4:	.WORD	17,0,11
	.ASCII	#A/B=     #
	.EVEN
MSG5:	.WORD	17,0,11
	.ASCII	/REMAINDER/
	.EVEN

INBF1:	.WORD	56,0,50
BUF1=.
	.=.+50
OUTBF1:	.WORD	24,0,16
BUF2:	.ASCII	/            /
	.BYTE	15,12
	.EVEN
ENTMSG:	.WORD	33,0,25
	.BYTE	15,12
	.ASCII	/ENTER TWO NUMBERS/
	.BYTE	15,12
	.EVEN

VBITA:	.WORD	25,0,17
	.ASCII	/V BIT INPUT A/
	.BYTE	15,12
	.EVEN
VBITB:	.WORD	25,0,17
	.ASCII	/V BIT INPUT B/
	.BYTE	15,12
	.EVEN

VBITD:	.WORD	27,0,21
	.ASCII	/V BIT ON DIVIDE/
	.BYTE	15,12
	.EVEN
A:	.WORD	0,0
B:	.WORD	00,0
C:	.WORD	0,0
OUTBF2:	.WORD	17,0,11
BUF3:	.ASCII	/       /
	.BYTE	15,12
	.EVEN
                                                                                                                                                                                                                                                                                                                                                                                     